home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / ModToPas / txt / TPFile.mod < prev    next >
Text File  |  1993-12-13  |  2KB  |  125 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TPFile.mod
  4.     :Contents.   Turbo Pascal Fileprozeduren
  5.     :Author.     Markus Uhlendahl
  6.     :Address.    Vorm Burgtor 16, D-4408 Dülmen
  7.     :Phone.      02594/81540
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga AMSoft V3.3d
  11.  
  12. **********************************************************************)
  13. IMPLEMENTATION MODULE TPFile;
  14.  
  15.  
  16. FROM SYSTEM IMPORT ADR;
  17.  
  18. FROM Dos    IMPORT Read,Write;
  19.  
  20. IMPORT FileSystem;
  21.  
  22.  
  23. VAR FileName : FileString;
  24.     fehler   : LONGINT;
  25.  
  26.  
  27. PROCEDURE Assign (f : Datei;s : FileString);
  28.  
  29.   VAR i : INTEGER;
  30.  
  31.   BEGIN
  32.     i:=0;
  33.     WHILE s[i]#0C DO
  34.       FileName[i]:=s[i];
  35.       INC (i);
  36.     END;
  37.     FileName[i]:=0C;
  38.   END Assign;
  39.  
  40.  
  41. PROCEDURE Close (f : Datei);
  42.  
  43.   BEGIN
  44.     FileSystem.Close (f);
  45.   END Close;
  46.  
  47.  
  48. PROCEDURE ReadF (f : Datei;VAR c : CHAR);
  49.  
  50.   BEGIN
  51.     fehler:=Read (f.file,ADR(c),1);
  52.   END ReadF;
  53.  
  54.  
  55. PROCEDURE ReadFInt (f : Datei;VAR i : INTEGER);
  56.  
  57.   BEGIN
  58.     fehler:=Read (f.file,ADR(i),2);
  59.   END ReadFInt;
  60.  
  61.  
  62. PROCEDURE ReadFString (f : Datei;VAR s : ARRAY OF CHAR);
  63.  
  64.   VAR i : INTEGER;
  65.  
  66.   BEGIN
  67.     i:=-1;
  68.     REPEAT
  69.       INC (i);
  70.       fehler:=Read (f.file,ADR(s)+i,1);
  71.     UNTIL (s[i]=0C) OR (i=HIGH(s));
  72.   END ReadFString;
  73.  
  74.  
  75. PROCEDURE ReadFReal (f : Datei;VAR r : REAL);
  76.  
  77.   BEGIN
  78.     fehler:=Read (f.file,ADR(r),4);
  79.   END ReadFReal;
  80.  
  81.  
  82. PROCEDURE Reset (VAR f : Datei);
  83.  
  84.   BEGIN
  85.     FileSystem.Lookup (f,FileName,1024,FALSE);
  86.   END Reset;
  87.  
  88.  
  89. PROCEDURE Rewrite (VAR f : Datei);
  90.  
  91.   BEGIN
  92.     FileSystem.Lookup (f,FileName,1024,TRUE);
  93.   END Rewrite;
  94.  
  95.  
  96. PROCEDURE WriteF (f : Datei;c : CHAR);
  97.  
  98.   BEGIN
  99.     fehler:=Write (f.file,ADR(c),1);
  100.   END WriteF;
  101.  
  102.  
  103. PROCEDURE WriteFInt (f : Datei;i : INTEGER);
  104.  
  105.   BEGIN
  106.     fehler:=Write (f.file,ADR(i),2);
  107.   END WriteFInt;
  108.  
  109.  
  110. PROCEDURE WriteFString (f : Datei;s : ARRAY OF CHAR);
  111.  
  112.   BEGIN
  113.     fehler:=Write (f.file,ADR(s),HIGH(s)+2);
  114.   END WriteFString;
  115.  
  116.  
  117. PROCEDURE WriteFReal (f : Datei;r : REAL);
  118.  
  119.   BEGIN
  120.     fehler:=Write (f.file,ADR(r),4);
  121.   END WriteFReal;
  122.  
  123.  
  124. END TPFile.
  125.